/* $VER: html.tet 1.0 (14.11.96) needs: match raw2ent rep inserts gfx at the beginning of the real text (see line 53) appends a file at the end of the text (see line 363) start */ options results parse arg n x y signal on syntax myhost=n||" '"||x||"'" interpret myhost /* main */ 'GOTO BYTE=1' 'DELETE LINE' 'REPLACE STRING="<%>" BY="" WILD=FALSE ALL QUIET CONFIRM=FALSE' 'REPLACE STRING="<%START>" BY="" WILD=FALSE ALL QUIET CONFIRM=FALSE' 'REPLACE STRING="<%END>" BY="" WILD=FALSE ALL QUIET CONFIRM=FALSE' 'REPLACE STRING="" BY="" WILD=FALSE ALL QUIET CONFIRM=FALSE' 'REPLACE STRING="*"`" BY="*"" WILD=FALSE ALL QUIET CONFIRM=FALSE' 'REPLACE STRING="*"''" BY="*"" WILD=FALSE ALL QUIET CONFIRM=FALSE' 'REPLACE STRING="" BY="" WILD=FALSE ALL QUIET CONFIRM=FALSE' 'REPLACE STRING="" BY="" WILD=FALSE ALL QUIET CONFIRM=FALSE' 'REPLACE STRING="<" BY="ECICECLAMMERAUF" WILD=FALSE ALL QUIET CONFIRM=FALSE' 'REPLACE STRING=">" BY="ECICECLAMMERZU" WILD=FALSE ALL QUIET CONFIRM=FALSE' 'SAVE ALL NAME="t:te.out"' address command 'raw2ent >nil: t:te.out t:te_temp ent' 'rep >nil: t:te_temp "*n*n" "*n*n

" t:te.out' interpret myhost 'OPEN AGAIN' 'GOTO BYTE=1' 'REPLACE BY="<" STRING="ECICECLAMMERAUF" WILD=FALSE ALL QUIET CONFIRM=FALSE' 'REPLACE BY=">" STRING="ECICECLAMMERZU" WILD=FALSE ALL QUIET CONFIRM=FALSE' 'REPLACE BY="PARAgraphENzeichEN" STRING="

" WILD=FALSE ALL QUIET CONFIRM=FALSE' 'REQUEST STRING TITLE="HTML Title" VAR=VARX' 'TEXT T="'VARX'" CR' 'FIND STRING="PARAgraphENzeichEN" WILD=FALSE NEXT QUIET' 'PING 0' 'FIND STRING="PARAgraphENzeichEN" WILD=FALSE NEXT QUIET' if RC=0 then do 'QUERY LINE' if RESULT>6 then 'PONG 0' end 'GOTO STEP 18' 'DELETE LEFT' 'TEXT T="